Program lab7;
Uses crt;
Type k=string;
Type n=integer;
procedure vvod(var p: k);
begin
write('Vvedite: ');
readln(p);
end;
procedure obrabotka(var p,s: k; count: n);
var y,z:integer;
begin
If s<=p then begin
Y:=pos(s,p);
If y=o then writeln(‘nevstrech’) else
writeln(‘vstrech’);
Count:=0;
While y>0 do begin
z:=length(s)+y; Delete(p,1,z);
if y>0 then
count:=count+1;
End;
Readln;
End;
End;
var comanda:byte;
pp:k;
Ss1:k;
ss2: k;
nn: n;
begin
repeat
clrscr;
writeln('1-vvod predlogeniya,2-vvod pervogo slova, 3-vvod vtorogo slova,4-kolichestvo pervogo slova, 5-kolichestvo vtorogo slova, 6- vyhod');
writeln('Vvedite comandu');
readln(comanda);
case comanda of
1:vvod(pp);
2:vvod(ss1);
3:vvod(ss2);
4:begin
obrabotka(pp,ss1, nn );
writeln('kolichestvo slov: ', nn);
readln;
end;
5:begin
obrabotka(pp,ss2, nn );
writeln('kolichestvo slov: ', nn);
readln;
end;
6: writeln('end')
else writeln('Oshibka');
end;
readln;
until comanda = 6;
end.